home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue41 / ComCorn / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-03  |  2.8 KB  |  88 lines
  1. VERSION 5.00
  2. Object = "{2C998C80-8899-11D2-9261-00104B700B61}#1.0#0"; "LVCTRL.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Collection Test App"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin LVCtrl.ListViewX ListViewX1 
  14.       Height          =   1695
  15.       Left            =   360
  16.       TabIndex        =   0
  17.       Top             =   480
  18.       Width           =   3135
  19.       AllocBy         =   0
  20.       BiDiMode        =   0
  21.       BorderStyle     =   1
  22.       Checkboxes      =   0   'False
  23.       Color           =   -2147483643
  24.       ColumnClick     =   -1  'True
  25.       Ctl3D           =   -1  'True
  26.       DragCursor      =   -12
  27.       Object.DragMode        =   0
  28.       Enabled         =   -1  'True
  29.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   8.25
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       FlatScrollBars  =   0   'False
  39.       FullDrag        =   0   'False
  40.       GridLines       =   0   'False
  41.       HideSelection   =   -1  'True
  42.       HotTrack        =   0   'False
  43.       MultiSelect     =   0   'False
  44.       OwnerData       =   0   'False
  45.       OwnerDraw       =   0   'False
  46.       ReadOnly        =   0   'False
  47.       RowSelect       =   0   'False
  48.       ParentColor     =   0   'False
  49.       ParentFont      =   -1  'True
  50.       ShowColumnHeaders=   -1  'True
  51.       SortType        =   0
  52.       ViewStyle       =   0
  53.       Object.Visible         =   -1  'True
  54.       DoubleBuffered  =   0   'False
  55.       Cursor          =   0
  56.    End
  57.    Begin VB.CommandButton Command2 
  58.       Caption         =   "Command2"
  59.       Height          =   495
  60.       Left            =   2280
  61.       TabIndex        =   2
  62.       Top             =   2400
  63.       Width           =   1455
  64.    End
  65.    Begin VB.CommandButton Command1 
  66.       Caption         =   "Command1"
  67.       Height          =   495
  68.       Left            =   240
  69.       TabIndex        =   1
  70.       Top             =   2400
  71.       Width           =   1575
  72.    End
  73. Attribute VB_Name = "Form1"
  74. Attribute VB_GlobalNameSpace = False
  75. Attribute VB_Creatable = False
  76. Attribute VB_PredeclaredId = True
  77. Attribute VB_Exposed = False
  78. Private Sub Command1_Click()
  79.   ListViewX1.Items.Add.Caption = "Delphi"
  80. End Sub
  81. Private Sub Command2_Click()
  82.   Dim Item As ListItem
  83.   Set Items = ListViewX1.Items
  84.   For Each Item In Items
  85.    Item.Caption = Item.Caption + "!!"
  86.   Next
  87. End Sub
  88.